﻿Public Class clsInventarioDetalleBE

  Private m_iNumInv As Int32 = 0
  Private m_siItem As Int16 = 0
  Private m_siCodProd As Int16 = 0
  Private m_cCodProd As String
  Private m_vNomProd As String
  Private m_siCantidad As Int16 = 0
  Private m_tiUniMed As Byte = 0
  Private m_vUniMed As String
  Private m_vObsInv As String

  Public Property iNumInv() As Int32
    Get
      Return m_iNumInv
    End Get
    Set(ByVal value As Int32)
      m_iNumInv = value
    End Set
  End Property

  Public Property siItem() As Int16
    Get
      Return m_siItem
    End Get
    Set(ByVal value As Int16)
      m_siItem = value
    End Set
  End Property

  Public Property siCodProd() As Int16
    Get
      Return m_siCodProd
    End Get
    Set(ByVal value As Int16)
      m_siCodProd = value
    End Set
  End Property

  Public Property cCodProd() As String
    Get
      Return m_cCodProd
    End Get
    Set(ByVal value As String)
      m_cCodProd = value
    End Set
  End Property

  Public Property vNomProd() As String
    Get
      Return m_vNomProd
    End Get
    Set(ByVal value As String)
      m_vNomProd = value
    End Set
  End Property

  Public Property siCantidad() As Int16
    Get
      Return m_siCantidad
    End Get
    Set(ByVal value As Int16)
      m_siCantidad = value
    End Set
  End Property

  Public Property tiUniMed() As Byte
    Get
      Return m_tiUniMed
    End Get
    Set(ByVal value As Byte)
      m_tiUniMed = value
    End Set
  End Property

  Public Property vUniMed() As String
    Get
      Return m_vUniMed
    End Get
    Set(ByVal value As String)
      m_vUniMed = value
    End Set
  End Property

  Public Property vObsInv() As String
    Get
      Return m_vObsInv
    End Get
    Set(ByVal value As String)
      m_vObsInv = value
    End Set
  End Property

  Public Sub ReiniciarValores()
    m_iNumInv = 0
    m_siItem = 0
    m_siCodProd = 0
    m_cCodProd = String.Empty
    m_vNomProd = String.Empty
    m_siCantidad = 0
    m_tiUniMed = 0
    m_vUniMed = String.Empty
    m_vObsInv = String.Empty
  End Sub
End Class
